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INTRODUTION 


My first experience with BASIC programming was 
on a Hewlett-Packard 2000 timesharing system. I 
punched all of my programs on paper tape and 
made hard copy listings, which I kept stored 
away for five years. Then in March of 1983, after 
careful comparison with other computers, I plunked 
down my change for the Timex/Sinclair 1000. I was 
duprenseds While it cannot match all of the cap- 
abilities of a large mainframe computer, for the 
price and size the T/S 1000 is an amazing machine. 
I have been able to convert all of my HP 2000 
programs to run on my Timex, In fact, a few of 
them are in this collection. 


If you have bought a few cassette programs for 
your T/S3 1000 and have decided to learn how a 
program is written or if you have been writing 
your own programs and want to add some more to 
your library, then this book is just for you! 
The first section explores some of the mathe- 
matical capabilities of the computer. One pro- 
gram turns the computer into a calculator, com- 
plete with a graphic screen display. Other 
programs convert Fahrenheit and Celsius temper— 
atures, English and metric measurements. There 
is even a program that similates a travel 
computer like those found in some automobiles. 
The next section covers data handling--both 
numerical and text. There are programs that 
help plan your budget, keep names and addresses, 
and display data in a graph. The last section 
is where the games are. The last one uses the 
power of a machine code routine to produce a 
fast action arcade type game. 


Assuming that you have the basic 2K system 
with a users manual, then these programs are 
ready to use just as they are printed. I have 
included some suggestions for possible varia- 
tions and definitely encourage you to modify 
a program if it would be more suitable for you 
to do so. 4 program can always be improved on. 


You might want to make more use of REM statements 
or perhaps you found a faster, memory efficient 
way to do something. If you have more than 2K of 
memory available you may want to add more features 
in a program. In any case these programs should 
help you get better aquainted with your T/S 1000 
and have some fun while doing it. 


Math & Conversions 


THE CALCULATOR IN YOUR COMPUTER 


Hidden inside the sleek black case of your 1/5 
1000 is a full featured floating point calculator. 
This creature is not too hard to find, though. 

In the command mode type in PRINT 4+5 ENTE 
This gives you a nine at the top of the screen. 
That was not particularly taxing on the logic 
circuits so lets try PRINT ((4+5)3+36/2)/5 

This also gives you a nine. The ROM crunches num- 
vers in a certain order of priority. Calculations 
are made from left to right, with operations in 
parenthesis done first. Then the functions are 
evaluated. Next, the ¥ and / operators are recogni 
nized. Now, to get your calculator up and running, 
type in this 


This program utilizes the calculating abilities 
of the 7/5 1000. It begins with a subroutine call 
in line 30 to perform the graphics routine. Line 
40 initializes B$ as an empty string. A$ is then 


input, rounded off to nine digits and then added 
to BS. If A$ is not an operator it is printed in 
the calculator display. (Line 90) This continues 
until a "=" is entered and detected in line 60. 
The program then branches to line 110 where the 
value of B$ is stored as the variable C. C is 
checked for overflow and converted to a string 
variable--C$. It is rounded to nine digits, if 
necessary, and the result is printed in the dis- 
play. After a delay loop in lines 160-170 the 
progran is repeated. 


When this program is run, numbers_are input 
alternately with operators. Ex: 4 [ENT| + [EN't/ 

6 ENT = (ENT) which gives you a 10. Functions 

may be used, but I have found that the RON "sees" 
a function as a string length of one. As a result, 
if A$ contains a function, it is not printed far 
enough to the left. Also keep in mind that this 
calculator does not keep a running total, as many 
others do, but evaluates the entire equation using 
the order of priority described before. 


CONVERSION 


This program accepts a number input by the user 
to represent a temperature. The number is followed 
by an "F" or a "C" to represent either Fahrenheit 
or Celsius. The number is then converted to a 
pee, panbes that represents the other temperature 
scale. 
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To test this one, run it, then type in: 212F. 
What Celsius temperature does it return? On the 
next run type in that number, followed by a "Cc", 
Did you get your original number back? If not, 
check your program listing for accuracy. As you 
can see, the temperature is represented by TS. 
The number in T$ is stored in T, while the "Cc" 
or "F" is detected to determine which conversion 
to perform. After each conversion, there is a 
PAUSE. Then the program jumps back to the begin- 
ning and runs through again. A final note--the 
PAUSE in lines 120 and 160 may be adjusted to 
any suitable delay time. 


METRIC CONVERSION 


Do you get confused by kilograms, centimetres 
and litres? Or maybe you wonder how many cen- 
timetres are in an inch. If so, then this pro- 


The first part of the program prints out a menu. 
That is a sort of multiple choice question that 
determines where the program will branch to next. 
The GOSUB destination in line 70 is based on the 
menu selection. After the proper conversion is 
made there is a PAUSE that can be modified to any 
table delay. This program is easy to adjust to 
convert from metric back to English. Rewrite lines 
110, 160, 210 and 260 to ask for how many litres, 
Kilograms, centimetres, and kilometres are to be 
converted. Then use the follwing conversion 


converted. Then use the following fornulas: 
1 litre=.264 gallons 1 kilogram=2.204 pounds 
1 centimetre=.393 inches 1 kilometre=.621 miles 


Be sure to change the menu and output statements 
to show that you are now coverting metric back 
to English. If you have the 16K RAM pack then 
you can have a progran that converts both ways. 


TRAVEL COMPUTER 


One of the automotive gadgets available these 
days is a travel computer. This neat little box 
displays information such as miles per gallon, 
and remaining fuel at the touch of a button. 
Here is a program that similates some of those 
functions found on a travel computer. It works 
a lot like the last program in that it uses a 
menu and a subroutine for each selection. Let's 
take a quick look at what each selection does. 
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A--MPG: input miles traveled and gallons of 
fuel used, output is miles per gallon 


B--RANGE: input MPG and gallons of fuel available, 
output is travelling range 


C--WVPH: input miles and hours traveled, output 
is average miles per hour 


D--DIST: input hours and average miles per hour, 
output is distance traveled 


E--TIME: input average speed and miles traveled, 
output is travel time 


Try running this program next time you are plan- 
ning a car trip and you will get an idea of how 
much time will be spent on the road, average speed, 
fuel consumed and other travel data. 


erie trtriresr ria iyi irsl 


++/and then they 
said I was being 
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Timex/Sinclair 
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Data Handling 


BUDGET MINDSR 


It seems that a lot of people I know go through 
the month paying their bills and then wondering 
where all of their money went to. At times like 
this it is nice to have a budget planned out. 

Here is a short, yet powerful program that shows 
where each dollar of a particular income is spent. 
It features a special user prompt to show which 
data is expected. The income is entered first. 
Then the budgeted amount for each category is 
entered when the cursor shows it is expected. 

You may enter multiple figures for any category. 
Ex: 12432429 The figure printed for that category 
would be $78. The program also keeps a running 
total of the dollars reuaining after each expense. 


Here is the listing: 


Numbers are entered without the dollar sign and 
whole dollars may be rounded off. $14.62 would 
be entered as 14.62. $29.00 would be 29. After 
the program is run this is what it would look 
like. I know it can't be mine because there is 
still some money remaining!! 
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DIRECTORY 


Would you like to type a name into your computer 
and have it display that name with the proper 
address and phone number? This program can do that. 
You can search for one name or print out the entire 
list. There is even a provision for saving the 


NAME-ADOR 


_- 


In this version of the program there is memory 
space reserved for only four names, but it is 
easy to expand. It will fit into 2K of memory, 
put to be really practical a 16K RAM pack must 
be used. With the expanded memory 100 or more 
names can be easily stored. 


Before you modify the storage capacity you must 
decide how many names you want to store. As an ex- 
ample, we can make room for 25 names. Each name 
needs four lines so 25 times 4 is 100 lines. If 
each line has 30 characters then in line 20 you 
would write DIM A$(100,30). The printout routine 
loops in steps of four and prints the entire list 
of names. Line 210 controls the number of times 
the routine loops. The 13 is the number of the 
first line of the fourth name in A$. Since there 
is now 100 names the 13 must be changed to the 
first line of the 25th name--97. Line 320, in 
the search routine, is changed in the same manner. 
If you have space for 25 names and have stored 
fewer than that, then you need a way to break out 
of the print routine when you get to the last name. 


9 


Type ins 215 IF A$(I,1) 1 THEN GOTO 250 

With only four names it was possible to print them 
all onto the screen. But with 25 names you would 
get a full screen and the program would stop with 
a report code 5. To handle this problem, simply 
insert four SCROLL statements between lines 215 
and 220. For a lineprint output if you wish to 
have a hardcopy: 


as 


IMPORTANT: The first time this program is run, names 
may be written into it. It is not necessary to write 
all the names on the first run. When you finish each 
session of entering names, be sure to select "TI" 
from the menu and save the program on tape. New 
names may be added each time, but only if the space 
for names is not full! The program will start run- 
ning after it is loaded. If you break out or some- 
how stop then start again with GOTO 50, since RUN 
will erase all the names. Once the list is full it 
only needs to be saved one final time and that ver- 
sion is the completed directory. 


GRAPHICS 


Data that is output in numerical form is suitable 

for most applications. However, there are times when 

a graphic display of information is more meaningful. 
Bar charts, pie charts and graphs are common ways 

to represent data. Here is an example. Suppose 1 
that last week at Shaun's Car Wash from Sunday 

through Saturday they washed 7,12,2,9,18,17 and 14 ] 
cars. Did you get all of that? Okay, here is a 

bar chart with the same information. 
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Shaun's Car Wash 


#of cars washed 
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Using the bar chart, you can quickly see which were 
Shaun's busy days and which were slow. To write a 
graph routine requires that you plan a layout of 
the graph before you start. I use regular graph 
paper. Then write down exactly what you want to 
print and where you want to print it. The next step 
is to write a program sequence that will set up the 
graph by printing any borders, labels or values. 
After that is working, you can write the routine to 
print the bars or whatever you are using to repre- 
sent data. The data used may be stored in the pro- 
gram or input by the user. This is the program that 
produced the chart above. 


Lines 20-50 print the vertical border, while 60-80 
prints the horizontal part of the border. Line 90 
print the scale of values and the labels for each 
weekday. The loop in 100-160 sets the print position 
for each bar. The loop in 130-150 prints each bar 
in steps that are determined by the input variable, 
N. If N=0 then the printing loop is bypassed by line 
120. This short routine is an example of setting 
up and printing a graph for one particular applica- 
tion. This is only a sample. Other graphics charac- 
ters can also be used. Plot statements will give 
you greater resolution or range of increments. And 
finally, different formats, such as horizontal 

bar, curve plotting or plotting points on a graph 
will give you the flexibility you need to give a 
pleasing visual effect to your display of data. 


Rr errr tatters 


To find out program length: 


To POKE a character into the display 
without changing the print positions 


X=Row Y=Column The number POKEed 
is the CODE of the character you want 


To PRINT to all 24 lines: 


Note: Do not use INPUT or SCROLL while 
in this mode. 
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Games 


My collection of software includes conversion pro- 
grams, graph plotting, financial planning and games. 
When a friend, neighbor or relative drops by and 
wants to see the computer in action I load in a 
program and let it run. Most people are fairly im- 
pressed to see the computer balance my checkbook 
and draw a chart, but what really catches their 
attention is my collection of games. People really 
do enjoy trying their hand at games of strategy, 
dexterity or luck. These following programs should 
provide all of those. 


PLIEPO 


When a program requires an element of chance the 
T/S 1000 uses its random number generator. This 
amazing feature produces a number between zero and 
one. EX: .0011291504. That can be used to make a 
new number of any value. To produce a random num- 
ber from 1 to 10 use this BASIC expression: 


INT(RND € 10+1) 


This first game uses the random number generator 
to similate the flipping of a coin. When the com- 
puter flips its coin then you must guess the re- 
sult. The computer's response is tailored to the 
accuracy of your guess. 


The game starts out printing the title and asks 
if instructions are desired. If the first letter 

of the answer is a "Y" then instructions are 4 
given. In line 100 the random number is generated. | 
The coin result is based on this. Lines 160 and 

170 input the guess and compare it to the coin. 

At this point the program branches to a response 
that tells if your guess is correct or not. The 

last section asks if you want to play again. If 

the answer is yes-"Y"-then the program jumps to 

line 80 and runs again, otherwise it terminates. 
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STARSBEKER 


In esoteric circles a Starseeker is someone who 
seeks knowledge of lifes mysteries. One of the 
Starseekers abilities is that of clairvoyance. 
That is the ability to detect events by means 
other than the physical senses. This program gives 
the Starseeker a random number from 1 to 200 to 
guess at, a wide enough range to test for ESP or 
plain luck. 


ONE AND TUG 


STARSEEKER MUS 


NUMBER." 


Like in PLIPPO, this game asks if instructions 
are desired, and then provides them if wanted. In 
line 50, the variable "I" is set at one and keeps 
track of the number of guesses made. The target 
number is produced in line 55. Lines 60-100 ask 
for the guess, reports if high or low, increments 
I and if the guess matches the number it jumps to 
line 300. Then the Starseeker is told the number 
and the nurber of guesses it took to find it. The 
last portion of the program asks if a new game is 
wanted then runs again or terminates. 


Anywhere from 8 to 12 guesses to find the number 
is average. 4 to 7 guesses is pretty good and 3 

or fewer would indicate luck...or perhaps something 
more. 


TREASURE SEARCH 


This game makes use of a playing board and 
graphics characters. The object is to use the 
arrow (@{4}0 o>) keys to move your search cur- 
sor around to find the treasure that the com 
puter has hidden on the screen. You are guided 
by the meter at the right, which indicates if 
the last move brought you closer or farther 
from the treasure. The program just squeezes 
into 2K when it is run. If only 1K is avail- 
able then deleting the instructions and using 
only half of the screen for the board should 
trim it down to size. 
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FOUND IT 


PRINT AT 
R T= 7: 
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There are five main sections of this program: 
10-30 Hides the "Treasure" 

40-170 Introduction and Instructions 

180-350 Sets Variables and Draws the Board 


360-510 Playing the Game 
(move finder, check for treasure, adjust 
the meter) 


320-590 Final Routine for Found Treasure 


The variable Pl stores the difference in posi- 
tion between the finder and the treasure. P2 
stores the previous value of Pl. The computer 
can determine if a move is toward or away from 
the treasure by comparing Pl and F2. Then the 
meter can show the result. When you have found 
the treasure, the program executes a routine 
that is a closed loop. To break out, just touch 
any key and line 590 will release you. The game 
will restart automatically. Type in this program 
and grab your pick and shovel. Happy Hunting! 


STAR DODGER 


Here is an arcade type game that will demon- 
strate the use of machine code. Using the (and 
<} keys, you maneuver your spaceship among a 
cluster of stars, trying to avoid a fatal crash. 
If you make it through the cluster without hit- 
ting a star then the game ends. To start writing 
this program we are going to write the machine 
code into a REM statement in the first line. 
First, type in this: 


Then, starting at address 16514, POKE in these 
numbers: 1,118,25,42,16,64,22,0,43,126,185,40, 
4,114,87,24,247,16,243, 201 
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The REM statement will now look like this: 


The machine code stored in the REM statement 
scrolls the screen contents from right to left. 
The USR function in line 80 causes this routine 
to execute starting at 16514. The variable in 
line 10 sets the vertical position of the ship 
on the screen. Lines 20-90 make up a loop that 
is the main part of the program. During each 
loop, the program sets the print position of 
the snip and checks if a star is there. If so, 
it jumps to a crash message in line 120. 
Otherwise, the ship is printed. In the next 
line the print position is reset if the or 
is pressed. If the program has looped fewer 
than 100 times a new star is generated in the 
right of the screen. Then the machine code scro 
scroll is called by the USR function. This com 
pletes the loop. The last 21 passes through the 
loop make no new stars but scrolls the remaining 
ones off screen. If you succeed in dodging all 
of the stars, then the loop ends and you get 
the message in line 100. 


You can see how powerful machine language is. 
This example is only a subroutine of a program 
written in BASIC. It is possible to write en- 
tire programs in machine language. For further 
reading on this fascinating subject I suggest 
the book MASTERING I.ACHINE CODE ON YOUR 24-81 
by Toni Baker. 
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NOTES 


